#' 多变量合并成dat
#'
#' @param mv_exposures 多变量提取的工具变量
#' @param outcome 多变量提取的结局
#' @param harmonise_strictness 默认为2
#'
#' @return 多变量生成的dat
#' @export
#'
#' @examples
#'
#'
#' \dontrun{
#'
#'
#' library(Oneclick)
#'
#' exposure <-  list(
#'   df,
#'   'ieu-a-2'
#' )
#'
#' outcome <- 'ieu-a-3'
#'
#' mv_exposures <- M1_mv_extract_exposures(exposure)
#'
#' mv_outcome <- M2_mv_extract_outcome( outcome = outcome,
#'                                           mv_exposures = mv_exposures)
#'
#' mv_dat<-M3_mv_harmonise_data( mv_exposures = mv_exposures,
#'                              mv_outcome = mv_outcome )
#'
#'
#' # TwoSampleMR给出的IVW MVMR 的结果
#' mv_res<- TwoSampleMR::mv_multiple(mv_dat)[["result"]] %>%
#'         TwoSampleMR::generate_odds_ratios()
#'
#'
#' }
#'
#'
#'
#'
#'
#'
#'
#'
#'
M3_mv_harmonise_data<-function(mv_exposures = mv_exposures,
                               mv_outcome = mv_outcome,
                               harmonise_strictness=2){

  mv_dat<- TwoSampleMR::mv_harmonise_data(exposure_dat=mv_exposures,
                                          outcome_dat=mv_outcome,
                                          harmonise_strictness=harmonise_strictness)
  return(mv_dat)
}
